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1811 pIAGNOSnC TEjgr 002Q 
Wrtte Addresses on Disk Pack 



SCOPE: 



This program writes indelible addresses on 1311 I^k Packs. The 
addresses are five digits in length and are written sequentially starting 
with the track specified by the address wMch is entered via the console 
typewriter. The test terminates when the last track of the specified disk 
storage module has been written. Addresses can be written on additional 
disk storage modules by repeating the test and entering a new five digit 
starting address. 

This test can be used to write addresses on the CE Disk Pack. 
Addresses will be written on all cylinders except 00, 34, 35, 36, and 99. 

The program provides the optica of saving the data on each sector 
or generating data for each sector when writing the sector addresses. 
SETUP ;' 

1* While running the test, the program switches have the following 
functions: 

Switch 1 ON Bypasses error typeouts 



OFF 



Allows error typeouts 



Switch 2 ON 



Generates data for each sectoi^^ 
Saves data on disk pack 



OFF 



Switch 3 ON 



Halts on error 



OFF 



Bypasses halt on error 
Loops test 



Switch 4 on 



OFF 



Halts on test completion 



EC ko^seo 



pT 0020 



B. SETUP (cont.): 

2. During the keying in of data, if the laser makes an error ^Ing in 
data on the console typewriter, he can turn coniiole Switch 3 on/ 
press release and start, turn Switch 3 off, and re-enter the data. 
8. File Switches: 

Write Address Switch -r ON 
Compare Disable Switch — ON (OUH) 

4. Normal Setting of Console Switches 

Program Switches As Desired 
Data Switches — - Program 

5. The user should insure that the PACK ON an4 BEADY lights on the 
Disk Storage Drive are ON. 

6. Ijoading Program 

a. Clear core by inserting and executing 31 00003 00002 

b. Paper Tape Input 

(1) Load tape in reader. 

(2) Insert and execute 36 00000 00300. 

(3) After core has been loaded, depress START key. 

(4) Follow typed out instructions. 

c. Card Input 

(1) Place cards In reader hopper, 

(2) Place 1620 in manual mode. 

(3) Depress load key, 

(4) After core has been loaded, depress START key. 

(5) Follow typed out instructions. 

Note: When using this test with the CE Disk Pack, yes must be 
keyed in in answer to the questlcm "Are you using CE Disk Pack. " 
if no is keyed in, the head alignment^ita on cylinders 00, 34, 35, 
36, and^ will be d@j^;ro7ed. 
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DETAILED EXPLANATION: 

This test Is designed to v^rite tlie |ndeUble addresses on 1311 
disk packs with the option of eiUier saving the data that is on the sectors 
or writing known data on the sectors* The test has been written in routine 
form, and groups of routines perform certain logical functions. Th3 
routines that perform logical functions are: 

Control Routine \ 

Seek Cylinder Koiutine 

Write Addresses tRoutine 

Check Addresses Written Routine 

Test Complete Routine 

Error Routine 

The Control Routine is comprised of a group of routines. The 
name of the test, operating instructions, and switch functions are typed 
out by these routines. Input data required for the proper operation of this 
test Is entered during the^executlon of the Control Routine. A check that 
the entered address Is not on cylinders 35 or 36 is made; the disk imlt 
drive code digit is generated from the module number entered; and the 
address of the first sector of the track is calculated. If known data is 
to be written on the sectors, this data Is generated In the Control Routine. 

The following Input must be entered during the ejcecutlon of the 
Control Routine: (See Note At Bottom of Page 2) 

1. Yes or no, entered from the console typewriter. 

Normally the answer to this question is YES; because 
the test Is being used with tiie CE Disk Pack. Typing In 
YES provides for a program check to prevent writing on 
cylinders 00, 34, 36, 36, and 99. If NO Is entered, no 
program check is made of the cyliiiders being written 
on and the head alignment data will be desti^ 

fH 2ISI8I6 
EC 



DETAILED EHSt^^ 

liylth ttie CE P^ck, A t^^peout occurs {1X) MC8? ^ti 

PACK) , if NO is entered to warn the tiser that M cj^iW 
will be written on. 

2^ A One digit number, the module nuni|>er of the Disk Storage driye 
Oh whk^ the Disk Pack is Ipcated, is| entered from the consble 
typewriter, 

3. A five digit sector address indicating tiie starting track on which 
jaddresses ar« to be written ts entt^red frpm the console typeMrtter. 
To write all addresses, key in 00000. liyfiS was keyed in as the 
answer to whether or not the CE Disk Pack is being used, the 
sector address entered is checked that it is not on cylinders 35 
or 36. If the entered address is on one of these cylinders, an 
error message will type out requesting that the address be entered 
again. A new address should be entered which is not on one of 
these cylinders. 

The drive code digit must be calculated from the module number keyed 
in because of the format of the Disk Control Field. The calculation of 
tile drive code gives the following results: 
Module No. Drive Code 

0 1 
. ' ) ■ 1 " 3-' 
2 5 
■ a ' 1 - 

This drive code is then set in the Fq position of the Disk sulx* Inst ructions.; 
The starting address of the track containing the addresses entered 
^ is calculated. This is always an even digit in the tens j^sitlon and 2iero 
in the units* position; i. e. , XXXEO* If the tens' digit entered is even, 
it is the starting address, but if It is odd, the starting address is one 
less ^lafi tiie digit loitered. 



OT 0020 

t)ETAILED EXFLANAnON (con|.): 

The status of program switch 2 (3et$rmines whether the data oh 

the sectors will be rewrjltten (switch 2 Qff) wh^n the addresses are 

Wrltt^ dr whether generated data will replace (switch 2 oz^ the previous 

data on the sectors. The routine to generate a track (21(X) characters) of 

data is entered if switch 2 is on. A typical sector of the data generated is: 

(}(X)00()(}0001111lh . * . 88888888889999999999 

The twenty, five digit ad^ess are inserted in their respective positions 
before the data is written pn the disk pack. 

Prior to giving the access mechanism a seek command to position 
at the proper cylinder for writing, a check is made as to whether the CE 
Disk Pack is being used or not (entered information) . If the CE Disk is 
being used » « check is made to |yet*l f y that eyV I nders~6o , of ^ are not 
being accessed. If the cylinder Is 00, the address Is u|»deted to cylinder 
01 and the test continues;; If the cylinder is 34, the address is updated to 
I cyl Inder 37 before programtilng is continued; end if the cylinder Is the 
program enters ^e test completed routine. If the CE Disk Pack is not 
being used, this routine is bypassed. 

The Seek Cylinder Routine positions the access mechanism and 
then checks to see if a Select Lock condition exists. 

The Write Address Routine checks program switch 2 to determine 
if the data on the Disk Pack is to be saved or not. If it i^ a Read Disk 
Track Numerically without wrong length record check (RTN) is executed. 
The new (generated) disk addresses are placed in their pr^^per positions 
in the data ]ust read in, and then a Write Disk Track without wrong length 
Record Check (WTISI) is executed. A check for parity errors is made 
after the RTN and WTN instructicais* * 

The cheek Addresses Written Routine makes i double check to insure 
[thai the addresses were written on the Disk Pack, the first check Is the 
execution of a check Bisk Tmck Numerically without wrong length record 

216181$ 
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Cr DETAILED EXPLANATION (cont,)e 

check (^tN) • The second check Is a pto^tMif coiif^re of each of the addresses 
read from the 8lsk Nek* A RTN tnstriicttoii eom^afes the Disk Addresses against 
the addresses Iti the data used In the ifTN Itist ruction. Write Address routthe* If 
both of th^se checks give positive Indications, the addresses have been written 
on the Disk Pack. Error messages sie t^ed out if the results are negative. 

•nie Check Addresses Written Ife\#ie 
determine if a complete cylinder has been written. If it has, updating 
is performed and the Seek Cylinder Routine is entered. A check is also 
made to determine if the entire Disk PacH has been written. When it has» 
the Test Completed routine is entered. 

The Test Completed Routine checks if any errors occurred while 
the program was being run, if the error typeouts were bypassed, and 
then types out the appropriate message. 

Hie Error Routine is entered whenever a Parity Check is detected 
or a program compare indicates an incorrect result. It contains the 
necessary instructions to control whether or not an error message will 
be typed out, whether or not the program will halt on an error, or 
whether or not the program will loop on an error. 
D. ERROR ANALYSIS : 

CANT USE CYLINDERS 00, 34, 35, 36, 99 ON CE DISK PACK 
ERO 00930, 00954 
This error type out will occur if the user keys in a sector 
address that is on cylinders 35 and 36, and he has the CE Disk 
Pack on the storage drive. The program will request the sector 
address again. 

ERROR OCCURRED BUT SWITCH 1 WAS ON, THUS NO ETO 
ER80 02430 

This error type out will occur in tlie test completed routine if 
the \m^r tms switch X ON and an error occurred during the 

PN 2161316 
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ERROR ANALYSIS (conUi 

ruimlng of the test. FTQ « Errpr l^e Out* 
AAAAAAAAA BBBBEB (XX) CY|. ZZ »0y 

All other error type outs follow this standard format. 

AAAAAAAAAA is the Disk Storage Command on which 
the. error occurred. All disk operations In this program 
are without Wrong Length Record Check. 
BBBBBB (XX) is the error that occurred and turned on 
ANY DATA check. (XX) is the indicator number. 
CYL Z% HDY gives the cylinder number ZZ (00-99( and 
the head Y90*0) addressed when the error occurred, 
•nie AAAAAAAAA tjrpe outs that can occur are: 

READ TRACK Al ER2 01530 

The program is reading from a track on the Disk Into 
area Al in memory. 

WRITE TRACK ^ ER3 01710 

The program is writing from area Al in memory onto a 
track on the Disk Pack. 

READBKTKCK ER4 ' 01782 

The program Is doing a read back track compare of 
the data written onto the Disk Pack out of area Al In 
memory. 

READ TRACK A2 ER5 01842 

The program is reading the track written back into 
area A2 in memory. 

PROG COMPARE ER6 01986 " 

The program is doing a compare of the sector addresses 
written from area Al and read back into area A2. 

SEEK EI^ 01458 

The program has performed a seek operation. 

2161816 
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D. EimOEAMLYSISCGontJ: 
BBBBBP (X30, 

*fte BfiteBBB typfe erroirs 



ADS CK (3a) 


EMO 


02574 


WLRCK(37) 


ER|1 


02694 


V/ V J? VJ ' Vxx voo/ 




Via f 1 o 




EM4 


02764 


WRCK(07) 


EK15 


02778 


MBE-E (1^ 


ER16 


02802 




EB17 


02826 


FILENblND(39) 


EHIS 


02718 



The program found Any File indicator on, but all the 
indicators which turn it on are off. 
NOT/EQAiDS ERIS 02010 

The program during the compare of the sector addre^^^ 
' found one that was not equal. The program attempts to 

rewrite ^hat track of addresses ag^in. 
SELECT LOCK ER19 02574 

CYL ZZ HD Y ER20 02934 ^ 

This is the rest of the error type out that tells the 
user which cylinder (CYL) the error occurred on, where 
ZZ will be from 00 to 99, and also which head (HD) ot 
track was In error, where Y will be from 0 to 9, 

E. SERVICE HINTS: 

1, The test sdso contains a routine that will loop on a write instruction 
(ivrite disk track numerically without record length check) . This 
routine has to bettered via execution of a branch instruction in 
the insert area (49 03114} . This routine changes a no operation 
instrucUon to a branch and branches to the main program for the 
data as to vt^i<^ module and sector address is to be used. 
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SERVICE HINTS (cont.)(: 

This Is request from the met. Thp routine utilizes the write 

instruction in the main prpgram. This write instruction is 

continually execuited ip[itil the user turns console switch 4 off. 

The routine then changes a baranoh to a "NOP", and branches to 

the test complete routine in the ma}n program. 
2. This program wa^ designed to fulfill the need to write addresses 

on the 1311 Disk Ipack. However, it can also serve two other 

functions: ■>^, 

a. It will detect bad spots on a Disk Pack if these interfere 

with the magnetic pattern on the disk. This is detected 
by parity errors during a Read Operation, should parity 
errors occur. The head and cylinder number associated 
with the error will be typed out with the error message. 
The user may then dump the data read onto the typewriter 
to determine, by examining the characters, which sector 
is bad. I This is done by Inserting and executing a 35 

't 

XXXXX 00100 where XXXXX is the core location of the 
data area in core. The XXXXX^s can be determined by 
looking at the sublnstruction of the Disk operation that 
error occurred on. 
b» lids program will write addresses on the Disk Pack 

beginning with the starting track address of the track on 
which the sector address keyed in Is on. As a Seek opera- 
tion is executed for each cylinder and as the operation 
progresses through higher consecutive cylinders until 
the addresses are wrlttm on c^lnder 99, the user can 
watch the access arms to determlhe if the Seek operation 
is successfully seeking the cylinders (1. e. , access arm 
will progressively reach farther into tiie Disk Pack) . 
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START TEST 
It C0402 

•RESTART* 
BRCH XXXXX 



IC 



TTFT 
TEST NAME 

OX aQ2& 



10 



SWITCH 2 
AND 



«iDitit 



TYPE 
ASK USER If 



T 
I 



IN 



LOAD 
ll€«fART 



CC642 



C0TT4 iP3 



I 
I 

I IP 



accIpt 

ANSWER 
VES - NO 
IF SW3 CHt 
TYPE AGAIM 



IJ 



00«22 J3 



REQUEST 
AND ACCEPT 
MODULE NO. 
IF SW 3 ON. 
TYPE AGAIN 



G0702 



YES I 

I 
I 

I 

PUT A*' 
RECORD 
MARK IN 
C E MAP 



NO 

m 



IK 



IQ 



REQUEST 
ANO ACCEPT 
SECTOR ACRS 
IF SW 3 ON, 
TYPE AGAIN 



rr C E P ACK 
CHECK THAT 
ADRS IS N0T 
ON CYL 35 
OR 36 



IR 



eo9t« 



I 

I 
I 



00942 



^ ^IC^ 

•*CCMPA*£ CYL 



I IV 



COMPARE CYl 
K€« TO 36 
IS IT EQUAL 



YES I 



00966 02 



lU 



TYPE ERROR 
INVALID 
ADDRESS FOR 
C E DISK 
PACK - ERO 

GOTO **J3 



IX 

THIS ROUTNE 
COMPUTES 
DRIVE CODE 
FROM MODULE 
NUMBER 



GOTO 



GOO 



IN 



t 



00510 Jl 



00534 



IE 



TYPE 
CCMP CSABLE 
AND WR TRK 
ADDRESS 
SWITCH ON 

r 



TYPE 
SW SETTING] 
PROG-DESIRI 
0ATA-PR06 
HALT 
••- 
I 
I 

T€ 16 



C0726 00 

7 
I 



GO 738 



14 



RESET C E 
MAP TO A 
ZERO 



1ft 



TYPE 
DCNT USE 
C E DISK 
PACK ON 
FILE 



TO IN 



00882 



IS 



01002 01 



|S_A. RM IN » 01 



E MAP 



NO 
1 

lY 



YES 



00894 



I 1T_ 

COMPUTE 
CYLINDER 
NUMBER FROM 
SECTOR ACRS 
SET FLAG 



TO lU 



01026 



DOUBLE 
MODULE 
NUMBER 
AND 
ADO 1 



IV 




GOTO 
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01038 20 



CCHTRGL 

let 



2B 



LOfiC ORIVE 
CODE DIGIT 
INTC SUB* 
iNSfl^f IONS 



2€ 



HACK 



I 20_ 

SET UNITS 
POSITION OF 
*CRS TO 0 

WS B Y S 



01098 



2f 



IS^THfRE A • 
OIT AT ^ 
Rf LOC 99 • 



• CO 



NO 
03 

2N 



YES 



01122 



2F 



TENS DIGIT 

IS etc - 

SUBTRACT 1 



2S 

IF SW 2 IS 
ON^ENERATE 
A TRACK GF 
DATA TO Wit 
IN AltEA Al 



01146 03 



I 2h 



• CONSOLE 

» SWITCH 2 

• ON - OFF 



» OFF 
•* 211 



CN 



C1158 



2J 



INITIALIZE 

NEXT 
INSTRUCTION 



OltTO 04 

T 
I 



2t( 

TRANSNIT 
FIELD OF 
105 DIGITS 
INTO AREA 
Al 



€1182 



21. 



» • YES 

HAS ROUTINE • J4 
FILLED UP A • 
TRACK • 2N 

> • 



NO 



01206 



^ ! 2M 

UPDATE 
TRSPT FLC 
INSTRUCTION 



01230 J4 

T 
I 
I 



2N 



initiSlize 

ERROR MP 
AND 

AOORESS 
COUNTER 



2P 



IF C E DISK 
PACK. SKIP 
CYLINDERS. 
00«34.35*36 
«AN0 99 



01254 J6 




01266 



IS RM IN 
C E NAP 



YES 



2R 

COMPUTE THE 
CYL NUMBER 
FROM AORS 
CNTER - 
MULT BY 5 



• NO 
• 2X 



01290 



2S 

• -NO 

• IS CYL NO. • 05 
* EQUAL TO 00 • 

• • 2U 



YES 



01314 



2T 

UPDATE 
ADDRESS 
COUNTER TO 
CYL 02 



01338 05 



2U 



01362 



• NO 

• IS CYL NO* • 06 
> EQUAL TO 34 • 

• • 2tt 
• • 

YES V * 



2V 



I 



tPDATE 
ADDRESS 
COUNTER TO 
CYL. 37 



GCTQ 



01398 06 



JS 



2M 



2X 



• • YES 

• IS CYL NO. • J7 
• EQUAL TO 99 • 

• •58 



• 


• 

i..„..i.i« 


NO 

01434 J5 


I « 


I LOAD AODRSS I 
I COUNTER I 
! INTO SUB- I 
j INSTRCTIONS I 


01458 


; 2v 




GOTO 



3B 
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rf SW 2 OFF 
SAVE DATA 



3^ 



PLACE KEN 
SECTOR 

DATA 



3N 

WRITE DATA 
AND 

ADOR€SSFS 
WACIS Cllf € 
OtSK PACK 



911 

DO A REA5 
BACK CHECK 
Of DATA U« 

ass 



01518 01 



I 38 



CONSOLE 
SWITCH 2 
OM - OFF 



01590 J8 



01530 



OFF 



^ I 3C 

"rIad'oisk 
track num. 

»/0 
INTH 
Al 



01542 



ON 
J8 

I 

3H 



# • OFF 

> ANY CATA CK • J8 

INO 19 • 
» • 3H 

on" 'I'"""''"*.; ■ ■ 



01614 J9 



I 3H 

INITIALIZE 
TF AND CF 
INSTRGTieitS 



34 



PUT ADDRESS 
ON SECTORS 
IN AREA AI 
CIFAA Fk& 
ON ADDRESS 



81638 i 3K 

• HAS ROUTINE • LP2 
• PLACED ADRS • 

• ON MHOLE TK « 3P 



NO 



OHIO Ll»2 



1 3P 



MtlTE TRACK 
M /0 M« €X 

A«EA 

Al 



01722 



« ANY DATA CK • 
» INO 19 

* - ' - • 

Oft 



OFF 
NOP 

I 

3S 



01734 



LOAD RETURN 
LOAD ER T/0 
ER3 



01782 07 



3V 



READ 6ACK 
CBECK 

k/0 WLR CK 



01794 



3H 



01806 



• ANY OATA €K « «8 
» INO 19 • 

• • 48 

• ■ ■■• 



3X 



LOAD RETURN 
LOAD ER T/0 
ER4 



GOTO 



ERR 



5P 



OCTO 



ERR 



5P 



01554 



3E 



4QA0 R€f URN 
iOAC |R 7/0 
ER2 



GOTO ERR 



C1662 



5P 



I 3L 

UPDATE THE 
TF AND CF 
INSTRCTICNS 
AND ADDRESS 
COUNTER 



01770 NOP 



3S 



NOP OR • 

BRANCH 

INSTRUCTION • 



GOTO 



J9 



3J 



NOP 



07 



BRCH 
IPl 

I 

6U 



3V 
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4A 

RfAi) TRACK 
WRITEN 



4C 

THIS fCUtltd 

DOES A pms 

CCKPARE OF 
tME SECTCR 
ADDRESSES 



02082 



4W 

UPDATE 
SET FLG. 
COMP.AND 
CtEAR FLAG 
tNSTRCTICNS 



GOTO 



12 



0229a 



4J 



4U 



CC^PjWE 

oIg^ AORS 

CNTER TO 99 



01842 08 



READ TRACK 
W/g WLR CK 
INT G 
AREA A2 



018$A . I 4C 

• A « Y ir«rr cK • 09 

• I«*0 19 • 

• • w 

Ik... ' • 



018«6 



^0 



EWW RETORM 
tOAO^ER T/O 
ER'S . 



ERR 



59 



01902 09 



01962 12 



4H 

INITIALIZE ! 

THE SET FLG I 

.COMPARE* I 

AND CL FLG I 

INSTRCTICNS I 



4 J 



I SET FLAG 

I SET FLAG 

I COMPARE 

I CLEAR FLAG 



02010 ^^i 

' *• YES 
• MAS COHPARE • 10 
• EQUAL • ^ 

• • 

NO*" * 



*P 

THIS ROUTNE 
DETERHINES 
IF COMPLETE 
CYL HAS 
&EEN WRITEM 



02154 11 



40 



02122 



4V 



• 15 



• ARE THEY 
• EQUAL • 

• • 4X 

« • ' 

a - 1 II 11 1 



NO 



02334 16 



4M 



• •YES 

• COMPARE ADS • 13 
• HD DIGIT F4 • 

• TO 9* EQUAL • 4S 



UPDATE 

ADDRESS 

COUKTER 



NO 



G2190 l*t 

I 
I 
I 
I 
I 



4R 



UPDATE 
AORS CNTER 
LOAD CNT 

INTO sue- 

INSTRCTIONS 



GOTO 



01 



6CT0 



02358 IS 



J6 



4X 



2Q 



3B 



• • EVEN 

• IS Fl DIGIT • 16 
• CF ADS CNT « 

• COO OR EVEN • 4H 



000 



47 



50 



O — 



C2022 



4L 



LOAD RETURN 
LOAD ER T/O 

ER6 

ER18 



BTM 



C2058 10 



ETC 



4M 



02238 13 

I 
I 
I 
I 
I 



6H 



02262 



4S 



4T 



• • 

• HAS ALL AOS • 
» BEEN CCf<P 

• ON TRACK • 

• • 

NO I 



TO 4N 



YES 
11 

I 

40 



DETERMINE I 

IF F3 DIGIT I 

IS CCD OR I 

EVEN - 1 

HULT BY 5 1 



IS DIGIT 
000 



NO 
14 

I 

4R 



YES 



I 
I 
I 

ro 4U 



7^ 

*S o 
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4b 
■ »* 

if 



5A 



TEST 

€llfPLETE 
ROUTtKtE 



02406 J7 



5B 



CONSOLE 
SWITCH 4 
ON - OFF 



» CN 



OFF 



02418 



5C 



» OFF 

• 17 

* SF 



C2S14 



C2526 



56 









1 

1 

I 


HAtf 


i 

I 


1 

1 

i I SH 


I 




I 


I 


RELCAC 


f 


I 


RESTART 


1 








1 




1 



GO TO 
START 

OF 
TEST 



02538 ER« 



EgRQR 
SU»f0yTIME 



1 

1 

I SP 



• ANY OATA CK • 18 
► tm 19 • 

• • 5R 

■■ • ■ 

OFF r * 



025SO 



SQ 



RETURN 

TO 
PROGftftM 



C2694 



02718 



♦* ' *• ON 

• WtR CHECK • EfO 
» INO 37 • 

• ERll • 6H 
- • . ' • 

OFF i 



i m 

• • ON 

• OVERFLOW CK • ETO 
» INO 38 • 

• fiR12 • W 



» g 

-4^0' 



02742 




GOTO 



ETO 



02430 i SO 



« IS RK IN • 17 
• ERROR NAP • 



YES 



02562 18 



SR 



» • OFF 

•ANY FILE CK • JIO 

» INO 3S • 

• • 5X 



ON 



02754 JIO 



5X 



• • ON 

• READ CHECK # ETO 
► INO 06 • 

• ER14 • 6H 

OFF 1 * 



02442 



5E 



TYPE 
S0*<f ERROR 
OCCURREO 
BUT SMI ON 
NO ETO»ER30 



I 

02574 I^ 5S 

• * ~ • OFF 

• A0DRES5 CHK • • 
• INO 36 • *2 

« • 5U 



ON 



02778 ^ I 5Y 

« * • ON 

• WRITE CK • ETO 
• INO 07 • 

• ER15 • 6H 

• ■ . '• ■ 

OFF I 



02466 17 



5F 

TYPE 
TEST 

C0I4PLETEO 



TO 56 



02586 



5T 

CHECK 'fOR^ 
SELECT LOCK 
AORS CHK 
DETECTED ON 
SEEK /RO TK 



60T0 



ETO 



6H 



O2802 i 51 

•* * *• ON 

• MBR-E CK • ETO 
• INO 16 • 

• ER16 • 6N 
• 

cff"^"! 

TO 6A 



OT €C20 - 1311 SNDt1.|BiE l^lE^iSfS f»1IC^«ll 



OFF I 
02fS« i £S 

OS 



cm 



off" 



66 



EfltROir 



CZ922 €T0 



1«{E 



I 6« 

• • C« 

• CONSOLE • Jll 
» SWITCH I * 

• CN - OFF • 6ff 

• • 

OFF I ' 



03078 



6W 

•** • - 

• CCNSOLE • 19 
► SWITCH 3 • 

• ON - OFF • 6Q 



OFF 



03090 



I 6F 



HALT 



03114 



6U 

iooF m A 

Htm TRACK 
I^NSTtUCTION 
ENTEREO VIA 

iN^RT mm 



6V 



CHANGE NOP 
INSTRUCTION 
TO A INtiWCH 



GOTO 



LP3 



IF 



' '91"-"""" • 01^ 



C2934 



I 6J 



COWLTE THE 
CVL ANO HO 
NO.FROM^ 
ADRS CNTER 



03102 19 



I 60 



60 TO 
ERR 



03138 LPl 



6 W^ 



CONSOLE 

iff 



• SWITCH 4 
• CN * OFF 

OFF I 



• ON 

• LP2 
• 

• SP 



02874 



02686 



60 

.«»....-,■,., ■ * , ■• ON ' 
• F R CI^CK • 

• \m it • 

• ■ ■ ■ ■ , • 

OFF^ I 



I 6€ 

• * ^ • ON 

• A 0 CH€C« • ••♦12 
• {NO 23 • 



02946 i 6K 



I LOAD THE 

I TVPEOUT 

I INSTRCT1GNS 



02994 i 61 



03150 



TYPE 
ERRORS- 
INST. I NO. 
CVL •AND HO 



03174 



6X 

CHANGE NOP 
BACK TO A 
BRANCH 
RELCAO 
RESTART 



I 6Y 



60 TO 
J7412 



02898 



OFF I 
I 
I 



60 TO 
ERR 



6F 



03042 Jll 



6M 



PUT A RK 
IN THE 
ERROR MAP 



Ot 0020 
Page 16 



SAMPLE OUTtnJT FOR I|T 002f} 



DT aP20 INOELi&tE ADDR|SS£S( PROGIUH 

SW 2 ON GENEPJ^TE WRITE DATA 

SW 2 OFF SAVES DATA 

SW 3 ON FOR CORRECTING |CEY IN 

TURN ON THE COMPARE DISABLE (OUT) AHD WRITE SECTOR ADDRESS SWITCHES 
SWITCH SETTINGS ^ 
PROGRAM - AS DESIRED 
DATA-*-PROG 

ARE YOU USING CE DISK PACK*TYPE YES OR NO NO 

DO NOT USE ON CE DISK PACK 

KEY IN 1 DIGIT MODULE NUMBER 0 

KEY IN 5 DIGIT SECTOR ADDRESS 00000 

TEST COMPLETED 



c/aio 

IM *fStmtort0H HO. LABEL, OI^RATlOfl OPERftl^S REJWKS 











maio 


















00020 


• 


0T 0020 INOELlBtE AORS FftOG* 










00030 


















00040 


• 


THIS PROGRAM WILL WRITE* 










oooso 


• 


INDELIBLE 


ADDRESSES ON THE* 










00060 


• 


1311 DISK 


STORAGE DRIVE* 










00070 


• 


DISK PACKS 










00080 


















00090 


















00100 


• 


CONTROL ROUTINE* 










00110 


















00120 




DORS 


0O4O2t*t 


DEFINE START* 




49 


00414 


00000 


00130 


ST 


B 


♦♦12»f t 


RESTART* 


00414 


34 


00000 


00102 


00140 




RCTY 


t«* 


RETURN CARRIAGE* 




39 


03107 


00100 


00150 




MTY 


Tl««» 


TYPE TEST NAME* 










00160 
















00170 


• 


TYPE OUT SWITCH SETTINGS* 










00180 










00438 


34 


00000 


00102 


00190 




RCTY 


99 9 


RET CARR* 


00450 


39 


03847 


00100 


00200 




WATY 


T31*»« 


SW 2 SETTING* 


Q04^ 


34 


00000 


00102 


00210 




RCTY 


9 9 9 


RET CARR* 


0a4T4^ 


39 


03903 


00100 


00220 




WATY 


T32.,t^ 


SW 2 SETTING* 


004 


34 


OQQOO 


00102 


00230 




RCTY 


• "J" 


RET CARR* 


0049© 


39 


03787 


00100 


00240 




WATY 


T30««« 


TYPE SW3 ON* 


00510 


34 


00000 


00102 


00250 


Jl 


RCTY 


* * t 


RETURN CARRIAGE* 


00522 


39 


03317 


00100 


00260 




WATY 


T3««» 


TYPE SWITCH ON* 


00534 


34 


00000 


00102 


00270 




RCTY 


*• * 


RETURN CARRIAGE* 


00546 


39 


03453 


001 00 


00280 




WATY 


T4,,t 


TYPE SW SETTING* 


00558 


34 


00000 


00102 


00290 




RCTY 


* * • 


RETURN CARRIAGE* 


00570 


39 


03485 


00100 


00300 




WATY 


T5«»« 


TYPE SENSE— OFF* 


00582 


34 


00000 


00102 


00310 




RCTY 


9 9 9 


RETURN CARRiAGE* 


00594 


39 


03527 


00100 


00320 




WATY 


T6»,« 


TYPE DATA — PROG* 


00606 


48 


00000 


00000 


00330 
00340 




H 


1 1 f 


HALT* 










00350 


• 


ASK IF C E 


DISK PACK* 










00360 










00618 


34 


00000 


00102 


00370 




RCTY 


f * * 


RETURN CARRIAGE* 


00630 


39 


03671 


00100 


00380 




WATY 


T9.,» 


ASKS IF CE PACK* 



"00642 37 04599 OOiOO 00390 
00654 46 00642 00300 00400 
00666 32 04598 00000 00410 
00678 14 04599 00008 O0420 
§S 00*90 47 00726 01200 00430 
00702 25 04624 04622 00440 
00714 49 00762 00000 00450 
00726 15 04*24 00000 00460 
00738 34 00000 00102 00470 
00750 39 03263 OOIOO 00480 
00762 16 00408 -0774 00490 

00500 «* 
00510 ♦ 
00520 *♦ 
00774 34 00000 00102 00530 IP3 
00786 39 03549 00100 00540 
^ O^^QT 00100 00550 
00810 46 00798 00300 00560 

00570 
0O5«0 « 
00590 » 
00600 

mWZ2 34 i^PPS #0102 00610 J3^ 
^834 39 03609 00100 00620'^ 
00846 36 04614 00100 00630 
p0#51 44 #0646 00300 00640 
OO870 32 04*14 00000 00650 

00660 
00670 • 
00680 • 
00690 

00882 45 01002 04624 00700 

00894 13 04616 000-5 00710 
00906 32 00097 00000 00720 
00918 14 00098 000L5 00730 
00930 46 00966 01200 00740 
00942 14 00098 000L6 00750 
00954 47 01002 01200 00760 



RAty Clw^w ACCEPT Af«SlrfER# 

tc3 ••i2t«# SW3 ON lYP mAim 

SF Cl-lr.. SET FLAG* 

CW Clr*8a0# IS ANSWER Y€S* 



♦*36t»f 6RCH IF NOT* 

TD CE#»RMtt PUT RH IN MAP* 

B ♦'Nf8» f ^ SKIP T/0* 

TDM CEM90O0O0«t RESET MAP* 

RCTY ,«9 RETURN CARRIAOE* 

WATY T2«t» OOm USE CE PACK* 

TFM ST4^6*«-I^12f^ LQMi RESTART* 

REQUEST AND ACCEPT MODULE NO.* 

RCTY 99 9 RETURN CARRIAGE* 

WATY T79«» RQT MOD NO.* 

RNTY Il9ft KEY IN NUMBER* 

BC3 •-I2f9t SW3 on TYP AGAIN* 

REQUEST AND ACCEPT* 
DESIRED SfCTOR ADCmESS* 

RCTY 9t» RETURN CARRIAGE* 

WATY T89»» RQT ADDRESS* 

RNTY A-4»«9 KEY IN ADDRESS* 

BC3 ♦-129tt SW3 ON TYP AGAIN* 

SF A-49«« SET FLG ON ADRS* 

IF C E PACK, CHECK THAT ADS* 
IS NOT ON CYLINDER 35 OR 36* 



BNR 


•♦120,CEM,9 


IS RM IN CE MAP* 


MM 


A-2«O59l0t 


SET UP CYL NO.* 


SF 


979 9* 


SET FLAG* 


CM 


989035910* 


IS IT CYL 35* 


BE 


♦•••369 9» 


BRCH IF SO* 


CM 


989O369I09 


IS IT CYL 36* 


BNE 


♦♦489tt 


BRCH IF NOT* 



00966 


34 


00000 


00102 


00770 




00978 


39 


03943 


00100 


00780 




00990 


49 


00822 


ooooo 


00790 












00800 












00810 












00820 


« 










00830 




01002 


13 


04607 


000-2 


00840 




OIOIA 


11 


00099 


0-001 


00850 




01026 


25 


04611 


00099 


00860 












00870 












00880 


• 










00890 












00900 




OiOfS 


25 


04638 


04611 


00910 


J2 


OlOSO 


2S 


amsz 


04611 


00920 












00^30 












00940 


• 










00950 


• 










00-960 




01062 


15 


04618 


OOOOO 


00970 




01074 


25 


01097 


04617 


00980 




01086 


13 


04635 


OOO-O 


00990 




0109B 


43 


01122 


00099 


01000 




OHIO 


49 


01134 


OOOOO 


01010 




01122 


12 


04617 


0-001 


01020 




01134 


31 


04772 


00100 


01030 












01040 












01050 


• 










01060 












01070 


• 










01080 




01146 


47 


01230 


00200 


01090 




01158 


16 


01176 


-5182 


01100 




01170 


26 


99999 


04770 


OHIO 




01182 


14 


01176 


-7177 


01120 




01194 


46 


01230 


01200 


01130 




01206 


11 


01176 


-0105 


01140 





RCTY ttt RETURN CARRIAGE* 

WATY €R0,,, TYPE ERROR* 

B J3tt« KEY IN AGAIM* 

THIS ROUTINE COMPUTES DRIVE* 
CODE DIGIT FROM MODULE NO.* 



MM 


N«02tl0» 


MULTIPLY* 


AM 


99»01t8f 


ADO 1* 


TO 


M.99,. 


RELOAD MOO N0»* 




SUB-INSTRUCTION CONTROL* 




ROUTINE FOR MULTIPLE MODULES* 


TO 


SlfM,« 


LOAD MOD NO.* 


Tlx 


S2»M., 


LOAD MOD NO.* 




COMPUTE FIRST 


ADDRESS OF TRACK* 




AND STORE MATH 


TABLES* 


TDH AtOtf 


SET UNITS TO 0* 


TO 


♦♦23tA-lf f 


LOAD MULTIPLY* 


MM 


C2«00*10f- 


MULTIPLY E/0* 




•^24t99tf 


BRCH IF ODD* 


6 


•<f24f f « 


SKIP NEXT INST* 


SM 


A-l»01f8« 


SUBTRACT 1* 


TR 


TAB* 00100 tf 


STORE MATH TABLES* 



IF SW 2 IS ONtGENERATE A* 
TRACK OF DATA TO WRITE ON* 
DISK INTO AREA Al* 

BNC2 J4,»» SW 2 OFF BYPASS* 

TFM •♦18,Al+105»f LOAD NEXT INST* 

TF 99999, C3-lt« PUT DATA IN Al* 

CM ♦-6f Al*2100tt SEE IF DONE* 

BE •'•-36«9t BRCH IF DONE* 

AM •-30,l05tf UPDATE INST* 



S3 01218 49 01170 aaooo 



01230 15 04626 00000 
01242 26 04631 04618 



01254 45 01434 0462^ 
01266 13 04629 000-5 
01278 32 00097 00000 
01290 14 00098 000-0 

orror 4^^ 01338 01200 

013^14 15- ^629 00002 
01326 49 01434 00000 
01338 14 00098 000L4 
OiB^m 4? ai398 01200 
01362 15 04628 00007 
0^13^74 04629 00004 
m3Bt 49 01434 00000 
ai398 14 00098 000R9 
01410 47 01434 01200 
01422 49 02406 00000 
01434 26 04643 04631 
01446 26 04657 04631 



01458 
01470 
01482 
01494 
01506 



34 04638 
47 01518 
16 02556 
16 03012 
49 02538 



00701 
01900 
-1458 
-4189 
00000 



01150 

01160 •* 

01170 • 

01180 ♦ 

01190 

01200 J4 

01210 

01220 •* 

01230 • 

01240 ♦ 

01250 •* 

01260 J6 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 J5 

01420 

01430 ♦* 

01440 ♦ 

01450 •* 

01460 

01470 

01480 

01490 

01500 

01510 •* 

01520 ♦ 



0 ♦-48f#f too? 8ftCK* 



INITIALIZATION ROUTINE* 

f cm A00«€^5 COUNTER AND HAPS* 



TOM 
TF 



ERI4«00* « 
AOSf A«f 



RESET €RR0R MAP* 
LOAO ADDRESS CNT* 



IF C E D I SK PACK , SK I P* 
CYIINOERS 00f34#35f 3^t99* 



&NR 


JStCEM,, 


CK FOR RM* 


MM 


AOS-2«0S»10t 


COMPUTE CYt NO** 


SF 


97, Tf 


SET FLAG* 


CM 


9e«oo«io« 


IS NO. EQ 10 00* 


BNE 


«4'36«tf 


BRCH IF NOT* 


TDM 


A0S-2.02*t 


UPDATE CyLlNOER* 


B 


JS»t» 


COMPLT INIT* 


CM 


98t34,10« 


IS NO. EQ TO 34* 


BNE 


«'<-48««« 


BRCH IF NOT* 


TDM 


A0S-3f07»» 


UPDATE CYL* 


TOM 


A0S-2«04«« 


UPDATE CYL* 


B 


J5t*t 


COMPLT INIT* 


CM 


98t99»ldf t 


IS NO. EQ TO 99* 


BNE 


J5,ft 


BRCH IF NOT* 


B 


J7,#t 


DONE* 


TF 


Sl*5.A0Sf t 


LOAO SUB- INST 1* 


TF 


S2^5«A0Stff 


LOAD SUB- INST 2* 



SEEK CYLINDER* 

K Sl«701«t 

BNI •4-48 « 01900 9 f 

TFM ERR*18»»-24«t 

TFM El-t^^tERStt 

B ERR«9 9 



SEEK DESIRED CYL* 
ANY DATA CHECK* 
LOAD RETURN* 
LOAD OPERATION* 
BRCH TO ER ROUT* 



IF SW 2 OFF SAVE DATA ON DISK* 











01530 




01518 


46 


01590 


00200 


01540 


01 


01530 


36 


04638 


00706 


01550 




01542 


47 


01590 


01900 


01560 




01554 


16 


02556 


-1530 


01570 




01566 


16 


03012 


•4045 


01580 




01578 


49 


02538 


00000 


01590 












01600 












01610 


# 










01620 


• 










aifr30 














015^ 




01620 


--50S2 


01650 


J8 


01602 


16 


01632 


-5078 


01660 




01614^ 


26 


99999 


04631 


01670 


J 9 


01626 


33 


99999 


00000 


01680 




01618 


14 


01620 


-7077 


01690 




01650 


46 


01710 


01200 


01700 




01662 


11 


01620 


-0105 


01710 




01674 


11 


01632 


-0105 


01720 






U 


04631 


-0001 


01730 




014%& 


A% 


<a614 


00000 


01740 












01750 












01760 


• 










01770 


« 










01780 




01710 


38 


04636 


00706 


01790 


tP2 


OIT22 


47 


O1770 


01900 


oiaoo 




01734 


16 


02556 


-1710 


01810 




01746 


16 


03012 


-4075 


01820 




01758 


49 


02538 


00000 


01830 




01770 


41 


03138 


00000 


01840 


MOP 










01850 












01860 


• 










01870 


• 










01880 




01782 


36 


04638 


00707 


01890 




01794 


47 


01842 


01900 


01900 





BC2 M^99 

m Sl«0706«t 

BNI «4^48«01900f t 

TFM €RR^18f»-24,, 

jm El«6f€R2«t 



SW 2 014 BYPASS^ 
RD TK W/0 RtG# 
ANY DATA CHECK* 
LOAD RETURN* 
iOAO ERROR T/0* 
6RCH TO ER ROUT* 



PLACE NEM SECTOR ADDRESSES* 
IN WRITE DATA THAT WILL* 
BE WRITTEN ON DISK PACK* 



TF« 


J94>6«A14*5«« 


IN IT TRSMr FLO* 


TPM 


J94^18ffAl'f If « 


INIT CL PLC INST* 


TP 


99999* ADStt 


PUT AOS IN Al* 


CP 


99999«*« 


CLEAR FLAG* 


CM 


J94'6f A1^2000t* 


SEE IF DONE* 


BE 


•^60tf « 


BRCH IF DONE* 


AM 


J9^6*105*f 


UPDATE TP* 


AM 


J9>18*105«t 


UPDATE CP* 


AM 


AOStOlf t 


UPDATE ADDRESS* 


B 


J9«*t 


LOOP BACK* 



WRITE DATA AND ADDRESSES* 
BACK ONTO DISK PACK* 



WN Sl*0706fft 

BNI ••^48«01900tf 

TFM ERR+18,»-24,, 

TFM E1^6«ER3«« 

B ERRftt 

NOP LPlftf 



WRITE TK W/0 RLC* 
ANY DATA CHECK* 
LOAD RETURN* 
LOAD ERROR T/0* 
BRCH TO ER ROUT* 
NOP FOR LP ROUT* 



DO A READ BACK CK OF DATA* 
WRITTEN ONTO DISK PACK* 



RN Slt0707«« COMP DATA.ADORS* 

BNI »^48t01900ff* ANY DATA CHECK* 



m«e 01806 16 02556 -1782 
01818 16 03012 -4101 
01830 49 02538 00000 

01842 36 04652 00706 
01854 47 01902 01900 
01866 16 02556 -1842 
01878 16 03012 -4131 
01890 49 02538 00000 



01902 16 01968 -5078 
01914 16 01980 -7180 
©1926 16 -5082 
01938 16 01997 -7184 

01962 12 99999 00000 
01974 32 99999 00000 
01986 24 99999 99999 
01998 33 99999 00000 
02010 46 02058 01200 
02022 16 02556 -1710 
02034 16 03012 -4161 
02046 17 02922-4429 
02058 14 01992 -7077 
02070 46 02154 01200 
02082 11 01968 -0105 
02094 11 01980 -0105 
02106 11 01992 -0105 
02118 11 01997 -0105 
02130 11 02004 -0105 
02142 49 01962 00000 



01910 

01920 

01930 

01940 

01950 • 

01960 

01970 

01980 

01990 

02000 

02010 

02020 •* 

02030 * 

02040 • 

02050 • 

02070 

02080 

02090 

02100 

021 10 

02120 

02130 

02140 D 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 »♦ 



TF« ERR* 18, ♦-24 1# tOAD RETt^N* 
TFH E1*6.ER4»« IQAD ERROR T/Of^ 

B tRftt rt BftCM TO ER f«niT# 



AO TRACK WRITTEN INTO AR€A A2* 



Rid S2» 0706* « 

BUI #1^48 rOl 900 1# 

TFM ERR*l8f»-24f f 

TFM El*6 f Elt5f t 

8 ERRrvf 



RO TK W/0 RtC* 
ANY DATA CHECK* 
LOAO RETURN* 
LOAD ERROR T/D* 
BRCH TO ER ROUT* 



INITIALIZATION FOR A PROGRAN* 
COMPARE OF AOORESSES PUT ON* 



THE OlSK PACK* 




TFH 


D-l8tAL*l*t 


tlilTIALIZE* 


TF« 


O'^evAZ'fit* 


INITIALIZE* 


TF« 


0'«'69A14>59 9 


INITIALIZE* 


TF» 


0^11*A2«5»« 


INITIALIZE* 


TFH 


D^I8fAl^l«« 


INITIALIZE* 


SF 


99999, ft 


SET FLAG* 


SF 


99999,,, 


SET FLAG* 


C 


99999,9999^,, 


COMPARE ADDRESS* 


CF 


99999,,, 


CLEAR FLAG* 


BE 


♦♦48, »» 


BRCH OKAY* 


TF« 


ERR^ie,LP2,, 


LOAD RETURN* 


TFM 


E1*6,ER6,, 


LOAD ER T/0* 


BTM 


ET0,ER18,, 


BRCH, LOAO ER T/0* 


CM 


046,A1>2000,, 


SEE IF OONE* 


BE 


♦*84, , , 


BRCH IF DONE* 


AM 


0-18,105,, 


UPDATE* 


AM 


D-6,105,, 


UPDATE* 


AM 


D<»-6fl05,9 


UPDATE* 


AM 


D«ll,105,, 


UPDATE* 


AM 


0^18,105,, 


UPDATE* 


B 


D-24,,, 


LOOP BACK* 













02290 




THIS ROUTINE DETERHINES IF* 












02300 


• 


A 


COMPLETE CYLINDER HAS* 












02310 


• 


BEEN WRITT£N# 


. ■ ■ ■ - 












02320 












02154 


Z5 


02177 


04630 


02330 




TO 


♦♦23f AOS-ltt 


LOAD COMPARE* 






14 


04633 


000-0 


02340 




CM 


C4900000«10« 


COMPARE HO TO 9# 




0217S 


46 


02238 


01200 


02350 




BE 


•^60« f • 


BRCH IF EQUAL* 




02190 


11 


04631 


-0001 


02360 




AM 


A0S«01«t 


UPDATE AOS CNT* 




02202 


26 


04643 


04631 


02370 




TF 


Sl+5,ADStf 


LOAD SUB- INST I* 




02214 


26 


04657 


04631 


02380 




TF 


S2^5tADS«» 


LOAD SUB-INST 2* 




02226 


49 


01518 


00000 


02390 




B 


Dlttt 


LOOP BACK* 




02238 


25 


02261 


04629 


02400 




TD 


♦♦23f ADS-2f • 


LOAD MULTIPLY* 




02250 


13 


04635 


000-0 


02410 




MM 


C2 f OOOOO* 10 f 


MULTIPLY* 




02262 


43 


02286 


00099 


02420 




BP 


♦♦24t99ff 


BRCH IF ODD* 




02274 


49 


02190 


00000 


02430 




B 


•-84 f t f 


SET UP NEXT TIC* 






32 


04628 


00000 


02440 




SF 


AOS-3, « 9 


SET FLAG* 






14 


04629 


0O0R9 


02450 




CM 


A0S-2.099f 10 


• COMPARE TO 99* 




02310 


33 


04628 


00000 


02460 




CF 


ADS-3t«9 


CLEAR FLAG* 




02322 


46 


02358 


01200 


02470 




BE 


•♦36»t» 


BRCH IF EQUAL* 






11 


04631 


-0001 


02480 




AM 


ADStOl^t 


■ »fMW\ A ^ ff* A t% IP ^ At 

UPDATE AOS CNT* 




02346 


49 


01254 


OOOOO 


02490 




B 


J6««9 


LOOP BACK* 




02350 


25 


02381 


04627 


02500 




TD 


•♦23f AOS-4* f 


LOAD MULTIPLY* 




02370 


13 


04635 


00 0-0 


02510 




MM 


C2 t OOOOO « lb « 


MMt tM V V tfAA ^#^L 

MULTIPLY* 






43 


02406 


00099 


0^ 520 




BO 


•♦24t99»» 


BRCH IF ODD* 




a23%4r 49 


02334 


OOOOO 


02530 




B 


•-60ttf 


SET UP NEXT CYL* 












02540 




















02550 


• 


TEST COMPLETE 


ROUTINES* 












02560 


* 


i 








02406 


46 


01242 


00400 


02570 


J7 


BC4 


J6-12,,t 


ofl ^ UN uUUr OIVT 




02418 


47 


02466 


00100 


02580 




BNCl 


•♦48 t,. 


SW 1 OFF BYPASS* 




02430 


45 


02466 


04626 


02590 




BNR 


•♦36ffERM«» 


CK FOR RM IN MAP* 




02442 


34 


00000 


00102 


02600 




RCTY 


* 1 1 


RETURN CARRIAGE* 


m -o 


02454 


39 


04511 


00100 


02610 




WATY 


ER30*,« 


TYPE ER OCCURRED* 


o z 


02466 


34 


00000 


00102 


02620 




RCTY 


» f f 


RETURN CARRIAGE* 




02478 


39 


03757 


00100 


02630 




WATY 


T10««« 


TEST COMPLETED* 




02490 


34 


00000 


00102 


02640 




RCTY 


f»t 


RETURN CARRIAGE* 


ON CO 
o — < 


02502 


48 


00000 


OOOOO 


02650 




H 


* f t 


HALT* 




02514 


16 


00408 


-0414 


02660 




TFM 


ST-f6fST4^12tt 


RESTART* 





49 


Uv4iil4: 


A A AAA 


UiE O ff V 
ft 7 A fill 




8 


ST«»» 










fl>A90 




E^ROR SUBROUTl 










n 9 TIKI 

U a fv lir 










40 


n ^ A 9 




U A f A V 




RI 


•♦24«Ol900 • • 




49 




AAA AA 
il U U U U 


Ua f aV 




ft 


99999««« 


uZdoZ 


4 / 


uz rD<^ 




VIA 1 V 






J10*^39^QO«« 


02574 


4 f 


A a A 


A'a A.n A 


Ua f 






B Y S L • 03^600 • • 


02966 


14 


U3U1Z 


1 O 7 


A 97c A 
Ua f ?U 




\#A 




02598 


A A 

45 


AC 


A 1 9rtA 


Ua fOv 




RF 

oc 


#4. Aft a - « 


0261.0 


V A 

14 


rk 'Jin t o 




A 9 77 A 

U A f ff uF 




CM 


Fl'f6«ER2* • 


026Z2 


A A 

40 


<i AC e 


A f 9AA 


A97OA 
UA ff OU 






" " %» F W w 


02634 


'4 A 

14 


U3Ui & 


til 


UA » Tr%# 






F 1 4-6 • FR5 • • 


02646 


4 f 


A 9 A fi 




ft 9l5ftl^ 
U A OU V 






^( 4* ^( A A A 


02658 


V A 

16 


A "a A A T 


A AAM 1 


ft? ft 1 ft 






CI Af ,41 - 10- 


02670 


17 


02922 


^ ec 


n9 fit 9 ft 




ATM 


FTn.Fftl9« • 


02632 


17 




A "5 AT 

'~4^Ul 


Alf fi^^lY 
Ua ODU 




RTff 


Fm«FRr(y«« 


02694 


47 


02718 


A'a TA A 


ft 9 fi^ft 
Ua o*frU 




OPt S, 


«4-94« 0^700 • a 


02706 


17 


A *k A O '> 

02922 


"*4Zi;9 


A9QCA 

UaOSU 




ATM 
Din 


FTO«FRli«* 


02718 


A 

47 




#t»»AA 


Ua OOv 








02730 


17 




_A9I*7 


ft9ft7ft 
Ua O ff U 




ATM 


FT0.FR12« • 


02742 


17 


A ^ A O ^> 
UZ7C£ 




Ua OOU 




ATM 


FT0.FRi3«c 


02754 


A T 

4 / 


Ua f f t3 


A A AAA 


A9 QQA 
UA 0 7U 


110 

MAW 


ANT 


•'4?4* 00600 e a 


02 766 


1 ^ 






Ua 'UU 




ATM 

D 1 A 


FTfl. FR14« • 


02778 


4 f 




jr|A*»AA 


A9QI A 
U A wLv 




AN I 


« -f ? 4 • 0 0 70 0 • « 


02790 


If 


VZ9££ 


_A -ft Ct 


ft 90 9 ft 
Ua 7aU 




BTM 


ET0»ER15,f 


02802 


A ^ 

4? 


A *> O '9 A 


A t AAA 


ft 90^^ 
Ua 7 9U 




RM I 


•A 9^ - ft 1 Aftn . . 


02814 


17 


UZ9£^ 


«A'%T7 


Ua Tr"tU 




BTH 


ET0»ER16«9 


02826 


47 


02850 


01700 


02950 




BNI 


•♦24,01700» t 


02838 


17 


02922 


—4403 


A1 AA A 

Ua9oU 




BTH 


ET0,ER17, 9 


02850 


A A- 

46 


' A' 9 '-OA 9 


A A fi A A 


ft 9 07 ft 
Ua 7 ff U 




81 


♦'e-12f0800f f 


02862 


A A 

46 


A t» Q "7 A 

UZo f 4 


A 9 1 A A 
Ua iUU 


ft 9QRft 
UaTfOU 




B! 


•4^12f021009t 


02874 


46 


02886 


02200 


02990 




BX 


•♦12t02200,, 


02&86 


46 


02898 


02300 


03000 




BI 


••t>12f 023009f 


02898 


49 


02538 


00000 


03010 
03020 




B 


ERR«9ff 










03030 


• 


ERROR TYPE OUT 










03040 









RESTART TEST* 



ANY DATA CHECK* 
RETURN TO PROG* 
ANY FILE CHECK* 
ADDRESS CHECK* 
WAS OP A SEEK* 
BRCH - YES* 
WAS OP A RD TK* 
BRCH - YES* 
WAS OP A RD ?K* 
BRCH - NO* 
CHANG WATY TO NOP* 
BRCH LOAD ER T/0* 
8RCH LOAD ER T/0* 
RECORD LENGTH CK* 
BRCH, LOAD ER T/0* 
OVERFLOW CHECK* 
BRCH, LOAD ER T/0* 
BRCH, LOAD ER T/0* 
READ CHECK* 
BRCHtLOAD ER T/0* 
WRITE CHECK* 
BRCHtLOAD ER T/0* 
MBR-E CHECK* 
BRCH, LOAD ER T/0* 
MBR-O CHECK* 
BRCH, LOAD ER T/O* 
MAR CHECK* 
TAS CHECK* 
F R CHECK* 
A 0 CHECK* 
LOOP BACK* 





41 


filOiCtOO 


00000 


03050 






4^ 




00100 


03060 


ETO 




13 


04631 


000-5 


03070 




d2Q4& 




104493 


00095 


03080 






25 


04495 


00096 


03090 




Mat f 'W 


2S 


04507 

%0 ^ Jf \0 9 


00097 


03100 








03024 


02921 


03110 






34 
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00102 


03120 








99999 


00100 


03130 


El 






99999 


00100 


03140 






39 


04483 


00100 


03150 






25 




04622 

W ft* Cb 


03160 


Jll 


V -# W ^ T 


31 


00100 


04772 

w ~ lie 


03170 






16 


03007 


000L9 


03180 






47 


03102 


00300 


03190 




01090 


46 
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W w w w w 
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w w 


03200 








V- w 


O^0Oiff 

%f w w 














03220 












03230 
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0i3240 












03250 


• 










03260 




03114 


15 


01771 


00009 


03270 




jL w 




0'O774" 


00000 


0>28O 




031 3S 




^1710 


00400 


03290 






15 


01771 


00001 


03300 




031^2 

V KP *j 


16 


00408 


-0414 


03310 




03174 


49 


02416 


00000 


03320 












03330 












03340 


« 










03350 


• 










03360 




03187 




00019 




03370 


Tl 


03225 




00019 




03380 




03263 




©0027 




03390 


T2 


03317 




00023 




03400 


T3 


03363 




00§24 




03410 




03411 




00021 




03420 





HOf^ 


# t f 


t^O OPERATIONS 


BCl 


Jii«tt 


SW 1 ON BYPASS^ 


MM 


AOStOSfflOt 


MULTIPLY* 


TO 


ER20+ldf 95f t 


CYL. NUMBERS 


TO 


£R20^12f96t9 


CYL. NUMBER* 


TO 


£R20*24t97^» 


HO NUMBER* 


TF 


El^ie»ETO-ltt 


LOAD ER T/0* 


RCTY 


9 f 9 


RETURN CARRIAGE* 


WATY 


99999f 


TYPE ERROR* 


WATY 


99999tf9 


TYPE ERROR* 


WATY 


ER20« f 9 


TYPE ERROR* 


TO 


ERM«RM«« 


PUT RM IN MAP* 


TR 


00100* TAB »« 


REPLACE MATH TAB* 


TFM 


El'Ht39tlO« 


CHNG NOP TO WATY* 


BNC3 


•♦24ttt 


SW 3 ON HALT* 


H 


999 


HALT* 


r 


iEf^9 » 9 


SEE IF MORE ERS* 



LOOP ON A WRITE INSTRUCTION* 
ENT&RE0 VI ^ k BRANCH IN* 
THE INSERTION AREA* 



TDM NOP^l9099 9 

B LP^,9 9 

BC4- LP29 9 9 

TDM N0P*l90l9 9 

TFM ST+6*ST+1299 

B J7*12,,9 



CHANGE NOP TO B* 
BRCH TO MAINLINE* 
LOOP BK TO WRITE* 
CHANGE B TO NOP* 
LOAD RESTART* 
BRCH TO TST ONE* 



OATA,TYPE OUTSfERROR* 
MESSAGES AND CONSTANTS* 

OAC 19,0T 0020 - INDELIBLE* 

OAC 19, ADDRESSES PROGRAM'* 

DAC 27,00 NOT USE ON CE DISK PACK** 

OAC 23, TURN ON THE COMPARE OIS* 

DAC 24, ABLE 'fOUTi AND WRITE SEC* 

DAC 2I9TOR ADDRESS SWITCHES'* 





AAAI A 




T4 


04C 




Af|A91 


03440 


T5 


BftC 




nnni i 


03450 


T6 
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AAA9fk 


034&0 


17 


©AC 


U jDttV 




O34T0 

• V^~fw- 




OAC 






03480 


T8 


OAC 






03490 
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T9 


OAC 


0371 3 




v/«y ^ A w 




DAC 


03757 


A A A 1 CC 
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\Jf M. w 


03831 
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A A A 5 a 
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W >r w V 
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03997 


AAA9A 


V & w 




DAC 




A A A 1 C 






OAC 
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t r\ 


OAC 
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A'a A4A 


FR4 


OAC 


Q%L3X 




W?w^ V 




DAC 


u**lol 


AAAl ^ 


A-aivAA 

Uw v# 
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E rv w 
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A y. t OA 
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W J w f W 


PR 8 
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04Zul 


AAAl & 




ERIO 
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A A 9 9 01 


AAAl 


03690 


ER 1 1 
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A A O K 


AAAl 


03700 


ER12 
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A A ^-O ^ . 


AAAl Q 
UUU 4.^ 


03710 


ER13 
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AA3 9C 

043Z3 


AAA t ^ 


03720 

W ^ < w 


ER14 
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A A^C 1 


AAAl % 
UUUl 9 


03730 

\fH> • ■^w 


ER15 
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043 7 7 


AAAl H 




ER16 
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" U 9 


00013 

Www J> ^ 


03750 


ER17 
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04429 


00013 


03760 


ER18 


DAC 


044S5 


00014 


03770 


ER19 


OAC 


04483 


00014 


03780 


ER20 


DAC 


04511 


00023 


03790 


ER30 


DAC 


04557 


00021 


03800 




DAC 



16,S«ITCH SETTINGS** 
21f PROGRAM - AS DESIREO** 
ll.DATA— PROG«* 
25rKEY IN 1 DIGIT MODULE NUM# 
05fB€R •♦ 

25tKEY IN 5 DIGIT SECTOR ADO* 
06rR€SS 

21tARE YOU USING CE DISK* 
22 t PACK f TYPE YES OR HO 
ISfTEST COMPLETED'* 
22 fSW 3 ON FOR CORRECTING* 
08, KEY IN»* 

28,SW 2 ON GENERATE WRITE DATA'* 
20tSW 2 OFF SAVES OATA«* 

ERROR MESSAGES* 

27»CANT USE CYLINDERS 00»34,35* 
24«»36t99 ON C E DISK PACK** 
15 .READ TRACK Al ** 

13, WRITE TRACK •* 
IStREAD BK TK CK •* 
15, READ TRACK A2 •* 

14, PROG COMPARE •* 
06, SEEK •* 
14, ADS CK 1361 •* 
14, WLR CK (371 •♦ 

OVFO CK (3BJ ** 
FILE NO INO 139) ** 



15, 
19, 
13, 
13, 



RD CK 1061 *♦ 
WR CK (07) •* 
13, MBR-E (16) •* 
13, MBR-0 (17) •* 

13, NOT/EQ AOS •* 
14, SELECT LOCK ** 

14, CYL 99 HO 9** 

23, ERROR OCCURRED BUT SW 1* 
21, WAS ON THUS NO ETO.** 
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03830 
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•* 
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03880 
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03890 
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04620 
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03940 
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03980 
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03990 




04638 


00009 


04000 


SI 
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00005 -5078 


04010 




04652 


00009 


04020 


S2 


04665 


00005 -7180 


04030: 




04670 


00005 


04040 




04671 


00020 


04050 




04691 


00020 


04060 




04711 


00020 


04070 




04731 


00020 


04080 




04751 


00020 


04090 




04771 


00001 


04100 


C3 


04772 


00002 


04110 


TA8 


04873 


00100 


04120 




05075 


00001 


04130 




05077 


00002 


04140 


Al 


05182 


00105 


04150 




07179 


00002 


04160 


A2 


07284 


001Q5 


04170 




09280 


00001 


04180 


A3 



0ATA,CONSTANTSf WORKING* 
ARIA AND SUB-INSTRUCTIONS* 



0AC 


03«999ff 


ANSWER* 


DC 


2 f 00 ft 


BUFFER* 


DC 


2«00«9 


MODULE* 


DC 


2»00»« 


6UFFER* 


DC 


2ffO0»9 


MODULE* 


DC 


2f009t 


BUFFER* 


DC 


5 t 00000 9 9 


ADDRESS* 


DC 


2»00»» 


BUFFER* 


DC 


2,0%. 


RECORD MARK* 


DC 


2«0O9« 


C E MAP* 


DC 


2f00»« 


ERROR MAP* 


DC 


5 9 00000 9 9 


ADDRESS CNTR* 


DC 


2909«9 


CONSTANT 9* 


DC 


2*05,9 


CONSTANT 5* 


DAC 


1*099* 




DSC 


9*0000000209 9 


SUB-INSTRUCTION* 


OSA 


Al^l* 




DSC 


9*000000020,9 


SUB- INSTRUCTION* 


DSA 


A2*l* 




DC 


59 00000*9 


CONST* 


DSC 


20*00000000001 11 111 11 II99CONST* 


DSC 


20*22222222223333333333* .CONST* 


DSC 


20*44444444445555555555* 9CONST* 


DSC 


20*66666666667777777777* 9CONST* 


DSC 


20* 88888888889999999999* 9CONST* 


DC 


1*0*9 


LABEL FOR CONST* 


DSC 


29O* 




DSB 


100,399 


MATH TABLES* 


DAC 


I9O* 




DC 


2*00** 


RD/WR AREA Al* 


DSB 


105,20*9 


2100 POSITIONS* 


DC 


2*00*9 


RD/WR AREA A2* 


DSB 


IO592O99 


2100 POSITIONS* 


DC 


1909* 


LAST LABEL* 



04190 



mm omm^ 



mm 



1311 DIAGNOSTIC TEST 0020 



1600072(ro50O360O20100500AA0O0I2fi027626O0O590027425OOOl 100000260009000269000- 
260^0950026431000000020026001 140027425000000001 1490001200000000000000000000- 



o 2 

ON 00 

o— 

ON 



490041400000340000000102390318700100340000000102390384700100*0- 
340000000102390390300100340000000102390378700100340000000102*0- 
390331700100340000000102390345300100340000000102390348500100*0- 
340000000102390352700100480000000000340000000102390367100100*0- 
370459900100460064200300320459800000140459900008470072601200*0- 
250462404622490076200000150462400000340000000102390326300100*0- 
1600408-0774340000000102390354900100360460700100460079800300*0- 
340000000102390360900100360461400100460084600300320461400000*0- 
4501002046241304616000-5320009700000140009800015460096601200*0-' 
1400098000L647010020120O34000O0O01 02390394300100490082200000*0- 
1304607000-211000990-001250461100099250463804611250465204611*0- 
1504618000002501097046171304635000-0430112200099490113400000*0- 
12046170-0013104772001004701230002001601176-5182269999904770*0- 
1401176-71774601230012001101176-0105490117000000150462600000*0- 
260^46^1 046184 501434046241304629000-53200097000001400098000-0*0- 
470133801200150462900002 49O1434OOOOO1400O9800OL447O1398O12OC*O- 
15O4628OOOO715O4629OOOO449O1434OOO0O14OO09«O00R 94 70143401200*0- 
49O24O6OOOOO26O46V3O463126O46570463l 3 4 0 4 63»0 070W01SlgOI9OO*O- 
1602556-14581603012-4189490253800000460159000200360463800706*0- 
47O159OO19OO16O2556-153016O3O12-4O4549O2538OO0OO16O162O"-5O82*O- 
1601632-5078269999904631 3399999 OOOO6l4O162O-7OT746O171OO12OO*0- 
1101620-01051101632-01051104631-0001490161400000380463800706*0- 
4701770019001602556-17101603012-4075490253800000410313800000*0- 
3604638007074701842019001602556-17821603012-4101490253800000*0- 
3604652007064701902019001602556-18421603012-4131490253800000*0- 
1601968-50781601980-71801601992-50821601997-71841602004-5078*0- 
329999900000329999900000249999999999339999900000460205801200*0- 
1602556-17101603012-41611702922-44291401992-7077460215401200*0- 
1101968-01051101980-01051101992-01051101997-01051102004-0105*0- 
4901962000002502177046301404633000-04602238012001104631-0001*0- 
2604643046312604657046314901518000002502261046291304635000-0*0- 
4302286000994902190000003204628000001404629000R9330462800000*0- 
4602358012001104631-00014901254000002502381046271304635000-0*0- 
430240600099490233400000460124200400470246600100450246604626*0- 
340000000102390451100100340000000102390375700100340000000102*0- 



1-0402-0462 
1-0462-0522 
1-0522-0582 
1-0582-0642 
1-0642-0702 
1-0702-0762 
1-0762-0822 
1-0822-0882 
1-0882-0942 
1-0942-1002 
1-1002-1062 
1-1062-1122 
1-1122-1182 
1-1182-1242 
1-1242-1302 
1-1302-1362 
1-1362-1422 
1-1422-1482 
1-1482-1542 
1-1542-1602 
1-1602-1662 
1-1662-1722 
1-1722-1782 
1-1782-1842 
1-1842-1902 
1-1902-1962 
1-1962-2022 
1-2022-2082 
1-2082-2142 
1-2142-2202 
1-2202-2262 
1-2262-2322 
1-2322-2382 
1-2382-2442 
1-2442-2502 
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.0001 
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-0005 
-0006 
-0007 
0008 
►0009 
•0010 
•00 1 1 
•0012 
-0013 
•0014 
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•0016 
•0017 
-0018 
•0019 
-0020 
-0021 
-0022 
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-0024 
-0025 
•0026 
•0027 
•0028 
•0029 
•0030 
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•0032 
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4800000000001600408-0414490040200000460256201900499999900000*0-1 
470275403900470269403600140^012-41894602658012001403012-4045*0-1 
460265a01200l403012-4131470268201200l603007000Ml 1702922-4455*0-1 
1702922-42014702718037001702922-42294702742038001702922-4257*0-1 
1702922-428 74702778006001702922-43254702802007001702922-4351*0-1 
4702826016001702922-43774702850017001702922-4403460286200800*0-1 
460287402100460288602200460289302300490253800000410000000000*0-1 
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